home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aay.d64 / triangulation (.txt) < prev   
Commodore BASIC  |  2007-02-04  |  4KB  |  151 lines
  1. 10 POKE53280,0:POKE53281,0:E=31744:PRINT"[152]"CHR$(142):REM  C64 MODS BY WIM '83
  2. 9990 REM **************************
  3. 9992 REM *** VARIABLES ASSIGNED ***
  4. 9994 REM **************************
  5. 10000 B1$="                                       "
  6. 10001 DN$=""
  7. 10002 SA$= "[152]SINCE A+B+C=180,[154]"
  8. 10003 ND$="[152][190] [154]":REM NEAREST DEGREE)Q"
  9. 10004 HL$[178]"PRINT#HOW LARGE IS CONTSIDE "
  10. 10005 HA$[178]"PRINT#HOW LARGE IS PRINTANGLE "
  11. 10006 NT$[178]"DEFNO POSSIBLE TRIANGLE!CONTWAIT"
  12. 10007 SL$[178]"PRINT#USING THE SINE LAW ON CONT"
  13. 10008 UF$[178]"PRINT#USING FORMULA: CONT"
  14. 10009 L$[178]"PRINTANGLE ":M$[178]"CONTSIDE "
  15. 10010 W$[178]"PRINT#WHICHCONT":AK$[178]" PRINTANGLEPRINT# IS KNOWN? CONT"
  16. 10011 SK$[178]"CONT SIDEPRINT# IS KNOWN? CONT"
  17. 10015 [153][199](14)
  18. 10030 [141]21000
  19. 10040 [141]22000
  20. 10050 [141]25000:[143]*** FIRST SCREEN
  21. 10100 [141]22000:[153]"SYSANOTHER TRIANGLE?WAITCONT"
  22. 10110 [141]24000
  23. 10120 [139]A$[178]"N"[167][141]21000:[137]19999
  24. 10150 [137]10030
  25. 19999 [153]"LOAD";[199](142):[153][184](0):[128]
  26. 20500 [129]S[178]1[164]2000:[130]:[142]
  27. 21000 [153]"";
  28. 21010 [129]S[178]0[164]23:[153]B1$:[151]32807[171]E[170]40[172]S,32:[130]
  29. 21020 [129]S[178]0[164]39:[151]33728[171]E[170]S,32:[130]
  30. 21030 [153]"LOAD"
  31. 21040 [142]
  32. 21500 [153]""
  33. 21510 [129]S[178]0[164]13
  34. 21520 [153]B1$:[151]33207[171]E[170]40[172]S,32:[130]
  35. 21530 [129]S[178]0[164]39:[151]33728[171]E[170]S,32:[130]
  36. 21550 [142]
  37. 22000 [161]A$:[139]A$[179][177]""[167]22000
  38. 22010 [142]
  39. 23000 A$[178]"":A1$[178]""
  40. 23010 [161]A$:[139]A$[178]""[167]23010
  41. 23020 [141]20500
  42. 23030 A1$[178]A$
  43. 23040 [161]A$:A1$[178]A1$[170]A$:[139]A$[179][177]""[167]23040
  44. 23050 ANS[178][197](A1$)
  45. 23060 [142]
  46. 24000 [161]A$:[139]A$[178]""[167]24000
  47. 24010 ANS[178][197](A$)
  48. 24020 [142]
  49. 24900 [143]******************************
  50. 24902 [143]*** DRAW TRIANGLE/ OPTIONS ***
  51. 24904 [143]******************************
  52. 25000 [153][199](14)[163]8)"PRINTA"
  53. 25001 [153][163]7)"PRINTSTEP(null)WAIT"
  54. 25002 [153][163]6)"STEPSTEP(null)(null)WAIT"
  55. 25003 [153][163]5)"STEPSTEPSTEP(null)(null)(null)WAIT"
  56. 25004 [153][163]3)"CONTLENPRINTSTEPSTEPSTEPSTEP(null)(null)(null)(null)WAITCONTPEEKPRINT"
  57. 25005 [153][163]3)"STEPSTEPSTEPSTEPSTEP(null)(null)(null)(null)(null)WAIT"
  58. 25006 [153][163]2)"STEPSTEPSTEPSTEPSTEPSTEP(null)(null)(null)(null)(null)(null)WAIT"
  59. 25007 [153][163]1)"STEPSTEPSTEPSTEPSTEPSTEPSTEP(null)(null)(null)(null)(null)(null)(null)WAIT"
  60. 25008 [153][163]0)"BTAB(TAB(TAB(TAB(TAB(TAB(CONTATNPRINTTAB(TAB(TAB(TAB(TAB(TAB(TAB(CCONT"
  61. 25010 [153]"SYS             CHOOSE OPTION             WAITCONT"
  62. 25015 [153][163]0)"1WAITCONT  THREE SIDES"
  63. 25016 [153][163]0)"2WAITCONT  TWO SIDES PRINT#& A PRINTCONTAINED ANGLE"
  64. 25017 [153][163]0)"3WAITCONT  TWO SIDES PRINT#& AN PRINTUNCONTAINED ANGLECONT"
  65. 25018 [153][163]0)"4WAITCONT  ONE SIDE PRINT#& PRINTTWO ANGLES"
  66. 25020 [153]"DEFWHAT INFORMATION IS GIVEN (1-4)?CONT";:[141]24000:N[178]ANS
  67. 25021 [139](N[179][177]1[175] N[179][177]2[175] N[179][177]3[175] N[179][177]4)[167]25021
  68. 25025 [141]21500:[153]DN$              : [145]N[141]31000,32000,34000,33000
  69. 25050 [142]
  70. 26000 R2[178][181](R1[170].5)
  71. 26010 [142]
  72. 26500 R2[178][181](R1[172]100[170].5)[173]100
  73. 26510 [142]
  74. 31000 [141]22000:[153]HL$;"CONTATN? ";:[141]23000:SA[178]ANS:[153]SA
  75. 31005 [141]22000:[153]HL$;"CONTPEEK? ";:[141]23000:SB[178]ANS:[153]SB
  76. 31010 [141]22000:[153]HL$;"CONTLEN? ";:[141]23000:SC[178]ANS:[153]SC
  77. 31015 [139]SA[179][178]0[176]SB[179][178]0[176]SC[179][178]0[167][153]NT$:[137]10100
  78. 31017 [143] **************************
  79. 31018 [143] ***   PRINT FORMULAS   ***
  80. 31019 [143] **************************
  81. 31020 [141]21500
  82. 31030 [153]"";
  83. 31035 [153][163]20)"CONTATN =";SA;""
  84. 31040 [153][163]20)"CONTPEEK =";SB;""
  85. 31045 [153][163]20)"CONTLEN =";SC
  86. 31050 P[178]SA:Q[178]SB:R[178]SC:K[178]1:[141]36000:AD[178]PD
  87. 31055 [153]""
  88. 31060 [153]UF$;"POKEATNON2=PEEKON2+LENON2-2PEEKLEN LEN(null)(null)A,"
  89. 31065 [153][163] 5)L$;"A =";AD;ND$;""
  90. 31070 P[178]SB:Q[178]SA:R[178]SC:K[178]1:[141]36000:BD[178]PD
  91. 31080 [153]UF$;"POKEPEEKON2=ATNON2+LENON2-2ATNLEN LEN(null)(null)B,"
  92. 31085 [153][163] 5)L$;"PRINTB =";BD;ND$
  93. 31090 [153]SA$
  94. 31095 [153][163]5)L$;"PRINTC =";(180[171]AD[171]BD);ND$
  95. 31100 [142]
  96. 32000 [141]22000:[153]W$;AK$;
  97. 32001 [141]24000
  98. 32005 [139](A$[179][177]"A"[175]A$[179][177]"B"[175]A$[179][177]"C")[167][141]22000:[137]32001
  99. 32010 [153]A$:T[178][198](A$)[171]64: [145]T [137]32100,32200,32300
  100. 32100 P$[178]"PRINTA":Q$[178]"PRINTB":R$[178]"PRINTC":SP$[178]"CONTATN":SQ$[178]"CONTPEEK":SR$[178]"CONTLEN":[137]32400
  101. 32200 P$[178]"PRINTB":Q$[178]"PRINTA":R$[178]"PRINTC":SP$[178]"CONTPEEK":SQ$[178]"CONTATN":SR$[178]"CONTLEN":[137]32400
  102. 32300 P$[178]"PRINTC":Q$[178]"PRINTA":R$[178]"PRINTB":SP$[178]"CONTLEN":SQ$[178]"CONTATN":SR$[178]"CONTPEEK"
  103. 32400 [141]22000:[153]HA$;P$;" (LOG)? ";:[141]23000:PD[178]ANS:P1[178]ANS:[153]PD
  104. 32401 [139]PD[177][178]180[176]PD[179][178]0[167][153]NT$:[153]:[137]10100
  105. 32405 [141]22000:[153]HL$;SQ$;"? ";:[141]23000:Q[178]ANS:SQ[178]Q:[153]Q
  106. 32410 [141]22000:[153]HL$;SR$;"? ";:[141]23000:R[178]ANS:SR[178]R:[153]R
  107. 32420 [139]R[179][178]0[176]Q[179][178]0[167][153]NT$:[153]:[137]10100
  108. 32500 [141]36500:SP[178]P
  109. 32520 [141]21500:[153]""
  110. 32525 [153][163]19)P$;" =";PD;"COS":[153]
  111. 32530 [153][163]19)SQ$;" =";Q:[153]
  112. 32535 [153][163]19)SR$;" =";R:[153]""
  113. 32550 [153]UF$;SP$;"POKEON2 = ";SQ$;"ON2+ ";SR$;"ON2- 2";SQ$;SR$;
  114. 32551 [153]"POKE LEN(null)(null)";P$
  115. 32555 [153][163]5)M$;SP$;" =";P
  116. 32600 P[178]SQ:Q[178]SP:R[178]SR:[141]36000:QD[178]PD
  117. 32650 [153]:[153]UF$;SQ$;"POKEON2 = ";SP$;"ON2+ ";SR$;"ON2- 2";SP$;SR$;
  118. 32651 [153]"POKE LEN(null)(null)";Q$
  119. 32655 [153][163]5)L$;Q$;" =";QD;ND$
  120. 32700 [153]SA$
  121. 32720 [153][163]5)L$;R$;" =";(180[171]P1[171]QD);ND$
  122. 32750 [142]
  123. 33000 [141]22000:[153]"PRINT#NAME THE FIRST KNOWN PRINTANGLE(A,B,OR C)CONT: ";
  124. 33010 [141]24000:P$[178]A$
  125. 33020 [139]A$[179][177]"A"[175]A$[179][177]"B"[175]A$[179][177]"C"[167]33010
  126. 33025 [153]P$
  127. 33030 [141]22000:[153]HA$;P$;" (LOG)? ";:[141]23000:PD[178]ANS:[153]PD
  128. 33040 [141]22000:[153]"PRINT#NAME THE SECOND KNOWN PRINTANGLE: CONT";
  129. 33042 [141]24000:Q$[178]A$
  130. 33045 [139]A$[179][177]"A"[175]A$[179][177]"B"[175]A$[179][177]"C"[167]33042
  131. 33048 [153]Q$
  132. 33050 [141]22000:[153]HA$;Q$;" (LOG)? ";:[141]23000:QD[178]ANS:[153]QD
  133. 33060 T[178]198[171][198](P$)[171][198](Q$)
  134. 33070 R$[178][199](T)
  135. 33080 SP$[178][199]([198](P$)[170]128):SQ$[178][199]([198](Q$)[170]128):SR$[178][199]([198](R$)[170]128)
  136. 33090 RD[178]180[171]PD[171]QD
  137. 33120 [141]22000:[153]W$;SK$;
  138. 33130 [141]24000:T[178][198](A$)
  139. 33140 [139]T[177]192[175]T[179]196[167]33200
  140. 33150 [139]T[177]64[175]T[179]68[167]T[178]T[170]128:[137]33200
  141. 33160 [137]33130
  142. 33200 SS$[178][199](T):[153]SS$:[153]HL$;SS$;"? ";
  143. 33210 [141]23000:S1[178]ANS:[153]S1
  144. 33220 [139]S1[179][178]0[176]PD[179][178]0[176]QD[179][178]0[176]RD[179][178]0[167][153]NT$:[153]:[137]10100
  145. 33221 [141]21500
  146. 33222 [153]"":[153][163]20)P$;" =";PD:[153]:[153][163]20)Q$;" =";QD
  147. 33223 [153]:[153][163]20)SS$;" =";S1:[153]"":[153]SA$
  148. 33224 [153][163]5)L$;R$;" =";RD;"COS"
  149. 33225 T1[178][198](P$)[170][198](Q$)[171]130:[145]T1[137]33230,33235,33240
  150. 33230 [139]P
  151.